home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Learning Games
/
Learning Games (1995)(Maple Media).iso
/
kslogo13
/
kids.log
< prev
next >
Wrap
Text File
|
1994-04-27
|
3KB
|
65 lines
Circle :radius :amount
:radius=:radius*6.283185 :radius=:radius/18 repeat:amount [ fd:radius rt20 ]
BOX
repeat4 [ rt90 fd100 ]
F
fd100 rt90 fd50 bd50 lt90 bd50 rt90 fd25 bd25 lt90 bd50 rt90 pu fd75 pd lt90
T
pu rt90 fd25 lt90 pd fd100 rt90 fd25 bd50 fd25 lt90 bd100 rt90 pu fd50 lt90 pd
I
rt90 fd50 bd25 lt90 fd100 rt90 fd25 bd50 fd25 lt90 bd100 rt90 fd25 pu fd25 pd lt90
L
fd100 bd100 rt90 fd50 pu fd25 lt90 pd
E
fd100 rt90 fd50 bd50 lt90 bd50 rt90 fd25 bd25 lt90 bd50 rt90 fd50 pu fd25 pd lt90
A
fd75 circle25,10 lt20 fd25 rt90 fd50 bd50 lt90 fd50 lt90 pu fd25 lt90 pd
Poly :sides :size
repeat:sides [ rt360/:sides fd:size ]
h
fd100 bd50 rt90 fd50 rt90 bd50 fd100 lt90 pu fd25 pd lt90
=
pu fd40 rt90 pd fd70 pu lt90 fd20 lt90 pd fd70 lt90 pu fd60 lt90 fd95 lt90 pd
n
fd100 bd25 circle25,10 lt20 fd75 lt90 pu fd25 lt90 pd
m
fd100 bd12.5 circle12.5,10 lt20 fd25 lt180 fd25 circle12.5,10 lt20 fd87.5 pu lt90 fd25 lt90 pd
b
fd100 rt90 fd25 circle25,10 lt20 fd25 bd25 lt180 circle25,10 lt20 fd25 lt180 pu fd75 lt90 pd
r
fd100 rt90 fd25 circle25,10 lt20 fd25 rt180 fd25 move25,-50 pu fd25 lt90 pd
c
pu rt90 fd50 pd rt180 circle50,10 rt70 pu fd100 lt90 fd25 lt90 pd
d
fd100 rt90 circle50,10 lt200 pu fd75 lt90 pd
demo
repeat18 [ pu sp 0,0 fd50 rt20 pd :c=10 repeat20 [ fd:c :c=:c+5 rt90 ] ]
g
pu rt90 fd50 lt90 fd50 pd lt90 fd25 bd25 lt90 fd25 circle25,10 lt20 fd50 circle25,10 lt20 pu fd75 lt90 fd25 lt90 pd
j
rt90 pu fd50 lt90 fd25 pd fd75 rt180 fd75 circle25,10 rt160 pu fd25 lt90 fd75 lt90 pd
p
fd100 rt90 fd25 circle25,10 lt20 fd25 lt90 fd50 lt90 pu fd75 lt90 pd
o
pu fd25 pd fd50 circle25,10 lt20 fd50 circle25,10 rt160 pu fd25 lt90 fd75 lt90 pd
_
pu move50,0 pd
k
fd100 bd50 rt90 move50,50 move-50,-50 move50,-50 pu fd25 lt90 pd
colorwheel
width10 repeat120 [ color:c :c=:c+.1 if:c>14 [ :c=0 ] sp0,0 fd100 rt3 ]
turn
colorwheel repeat360 [ width5 color:c :c=:c+.1 if:c>14 [ :c=0 ] sp0,0 fd100 width8 color15 bd100 rt8 ]
newdemo
scale15 sp-100,0 clr repeat9 [ repeat200 [ fd100 rt120 fd20 rt146 fd20 ] rt120 ]
clock
aspect.5 repeat180 [ sp0,0 sh:m clr fd200 sp0,0 sh:h fd150 :m=:m+24 :h=:h+2 ] aspect1
spin
scale15 rt90 repeat10 [ pu sp50,50 rt180 pd :c=0 repeat45 [ clr fd100 rt:c fd100 rt180-:c :c=:c+4 ] ]
logologo
lt90 aspect.6 width2 repeat8 [ pu sp0,0 fd140 rt360/14 lt90 color:c pd l o g o rt90 :c=:c+1.7 ] aspect1
bush
:col=8 repeat5 [ :c=-600 repeat7 [ color:col sh270 repeat19 [ pu sp:c,0 pd fd200 rt10 ] :c=:c+200 ] :col=:col+1 ]
logotwo
scale2 logologo :c=1 scale7 logologo